home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Vellum 3D / Vellum⁄EPS < prev    next >
Text File  |  1991-05-20  |  3KB  |  116 lines
  1. *MapFont: Geneva Helvetica 
  2. *MapFont: Monaco Courier
  3. *MapFont: Times Times-Roman Times-Bold Times-Italic Times-BoldItalic
  4. %%DocumentProcSets: Ashlar_Vellum 0 0
  5. %%DocumentPreview: Macintosh_Pic
  6. %%DocumentFonts:
  7. *FontsUsed
  8. %%DocumentFontsNeeded:
  9. *FontsUsed
  10. %%EndComments
  11. %%BeginProcSet: Ashlar_Vellum 0 0
  12. userdict /Ashlar_Vellum 72 dict dup begin put
  13.  
  14. % set to true to get color printing
  15. /colorflag false def
  16.  
  17. /initialize    {
  18.     userdict /Ashlar_Vellum_vars 29 dict dup begin put
  19.     end
  20.  
  21.     Ashlar_Vellum begin
  22.     Ashlar_Vellum_vars begin
  23.     1 setlinecap
  24.     newpath
  25. } def
  26. /terminate { end end } def
  27.  
  28. /G { setgray } def
  29. /w { setlinewidth } def
  30. /S { stroke newpath} def
  31. /F { fill newpath} def
  32. /m { moveto } def
  33. /L { lineto } def
  34. /c { curveto } def
  35. /z { pop pop pop exch findfont exch scalefont setfont } def
  36. /t { show pop } def
  37. /tm matrix def
  38. /T { tm setmatrix} def
  39. /e {
  40.     tm currentmatrix pop
  41.     concat
  42.     0 0 moveto
  43.     % aload pop moveto pop pop pop pop
  44. } def
  45. /Z {
  46.     pop 
  47.     /theFont exch findfont def
  48.     /theName exch def
  49.     /theArray exch def
  50.     /newFont theFont length 1 add dict def
  51.     /newArray 256 array def
  52.     newFont begin
  53.         theFont {
  54.             1 index /FID ne {def} {pop pop} ifelse
  55.         } forall
  56.         /Encoding Encoding 256 array copy def
  57.         0 theArray {
  58.             dup type /nametype eq {
  59.                 Encoding 2 index 2 index put pop
  60.                 1 add
  61.             } {
  62.                 exch pop
  63.             } ifelse
  64.         } forall
  65.         theName newFont definefont pop
  66.     end
  67. } def
  68. /k {pop pop pop pop} def
  69. /K {
  70.     colorflag {
  71.         /vk exch def
  72.         vk add 1 exch sub 3 1 roll
  73.         vk add 1 exch sub 3 1 roll
  74.         vk add 1 exch sub 3 1 roll
  75.         setrgbcolor
  76.     } {
  77.         pop pop pop pop
  78.         0 setgray
  79.     } ifelse
  80. } def
  81.  
  82.  
  83. currentdict readonly pop end
  84. %%EndProcSet
  85.  
  86. %%EndProlog
  87. %%BeginSetup
  88. Ashlar_Vellum /initialize get exec
  89. *BeginFont
  90. [
  91. 39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis
  92. /Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute
  93. /egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde
  94. /oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex
  95. /udieresis/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  96. /registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash
  97. /.notdef/plusminus/.notdef/.notdef/yen/mu/.notdef/.notdef
  98. /.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslash
  99. /questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdef
  100. /guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe
  101. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide
  102. /.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright
  103. /fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
  104. /Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex
  105. /Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/Ucircumflex
  106. /Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla
  107. /hungarumlaut/ogonek/caron
  108. ]
  109. *EndFont
  110. %%EndSetup
  111. *****************
  112.  
  113. %%Trailer
  114. Ashlar_Vellum /terminate get exec
  115.  
  116.